100 POKE53280,14:POKE53281,13:PRINTCHR$(142)"[147][144]"TAB(12)"SEQUENTIAL FILE"
105 PRINTTAB(12)"READER/PRINTER":PRINTTAB(18)"BY"
110 PRINTTAB(13)"ROGER B. FRY":FORX=1TO2000:NEXT
115 PRINT"[147]"CHR$(14)"OPTIONS:[146]":PRINT"F1 = DIRECTORY"
120 PRINT"F3 = SCREEN ONLY":PRINT"F5 = HARDCOPY"
125 PRINT"F7 = KILL DISK FILE"
130 GETK$:IFK$=""ORK$<CHR$(133)ORK$>CHR$(136)THEN130
135 IFK$=CHR$(136)THEN365
140 IFK$>CHR$(133)THEN240
145 PRINTCHR$(142)"[147]DIRECTORY[146]":PRINT"F1 = SCREEN ONLY"
150 PRINT"F3 = HARDCOPY":PRINT"F5 = CANCEL FUNCTION":P=0
155 GETK$:IFK$=""ORK$<CHR$(133)ORK$>CHR$(135)THEN155
160 IFK$=CHR$(135)THEN115
165 IFK$=CHR$(133)THEN175
170 OPEN4,4:PRINT#4:PRINT#4,CHR$(14)"DIRECTORY"CHR$(15):PRINT#4:PRINT#4:P=1
175 PRINT"[147]DIRECTORY[146]":PRINT:PRINT:OPEN1,8,0,"$0":GET#1,A$,B$:N$=CHR$(0)
180 GET#1,A$,B$:IFB$=""THEN220
185 GET#1,A$,B$:PRINTASC(A$+N$)+256*ASC(B$+N$);
190 IFP=1THENPRINT#4,ASC(A$+N$)+256*ASC(B$+N$);
195 GET#1,A$:IFA$=""THEN210
200 IFP=1THENPRINT#4,A$;
205 PRINTA$;:GOTO195
210 PRINT:IFP=1THENPRINT#4
215 GOTO180
220 IFP=1THENFORX=1TO7:PRINT#4:NEXTX:P=0
225 PRINT:PRINT"PRESS ANY KEY TO CONTINUE.":CLOSE1:CLOSE4
230 GETK$:IFK$=""THEN230
235 GOTO115
240 OPEN1,4,7:L=1:P=0:IFK$=CHR$(135)THENP=1
245 PRINT"[147][201] NEED A FILENAME:[146] ";:INPUTF$
250 OPEN8,8,8,F$+",S,R":GOSUB440
255 PRINT"[147]PRESS ANY KEY TO PAUSE[146]"
260 PRINT:PRINT:PRINTTAB(10)""F$"[146]":PRINT:PRINT
265 IFP=1THENPRINT#1,CHR$(145)CHR$(14)F$CHR$(15)CHR$(17):PRINT#1:PRINT#1:L=4
270 GET#8,CH$:POKE212,0:IFST=0THEN280
275 IFST=64THEN340
280 PRINTCH$"[144]";
285 IFP=1THENPRINT#1,CH$;:IFCH$=CHR$(13)THENL=L+1:GOSUB455
290 GETK$:IFK$=""THEN270
295 PRINT:FORX=1TO39:PRINT"*";:NEXTX:PRINT:PRINT"PAUSE IS IN EFFECT[146]"
300 PRINT"OPTIONS:":PRINT"F1 = PRINTER ON":PRINT"F3 = PRINTER OFF"
305 PRINT"F5 = ABORT OPERATION":PRINT"F7 = CONTINUE UNCHANGED"
310 GETK$:IFK$<CHR$(133)ORK$>CHR$(136)THEN310
315 IFK$=CHR$(133)THENP=1:PRINT#1,CHR$(17):PRINT#1:PRINT#1:L=3:GOTO330
320 IFK$=CHR$(134)THENP=0:GOTO330
325 IFK$=CHR$(135)THEN335
330 PRINT"CONTINUING[146]":FORX=1TO39:PRINT"*";:NEXT:PRINT:GOTO270
335 PRINT"[147]"TAB(11)CHR$(142)"OPERATION ABORTED[146]"
340 IFP=1THENPRINT#1:FORX=L+2TO66:PRINT#1:NEXTX:PRINT#1,CHR$(145)
345 CLOSE1:CLOSE8:PRINT:PRINT"DO YOU WISH TO READ":PRINT"ANOTHER FILE? (Y/N)"
350 GETK$:IFK$="Y"THENCLR:GOTO115
355 IFK$<>"N"THEN350
360 END
365 POKE53280,2:POKE53281,2:PRINTCHR$(142):GOSUB465
370 PRINT"TYPE IN THE FILENAME TO BE SCRATCHED"
375 PRINT"OR PRESS RETURN TO ABORT THE FUNCTION."
380 PRINT"FILENAME:[146]";:INPUTF$
385 IFF$=""THEN410
390 GOSUB465:PRINT"LAST CHANCE!":PRINT"DO YOU REALLY WISH TO KILL"
395 PRINT"THE   "F$" [146]  FILE? (Y/N)"
400 GETK$:IFK$=""THEN400
405 IFK$="Y"THEN415
410 POKE53280,14:POKE53281,13:PRINT"[144]"CHR$(14):GOTO335
415 GOSUB465:PRINT"KILLING "F$
420 CLOSE15:OPEN15,8,15:PRINT#15,"S0:"+F$
425 FORX=1TO2000:NEXTX:CLOSE15
430 GOSUB465:PRINT""F$" IS NOW DEAD!!"
435 FORX=1TO2000:NEXTX:POKE53280,14:POKE53281,13:PRINT"[144]"CHR$(14):GOTO115
440 CLOSE15:OPEN15,8,15:INPUT#15,D,E$,F,G
445 IFD>0THENPRINT:PRINT"THERE IS A DISK ERROR":PRINTD;E$;F;G:CLOSE15:GOTO345
450 RETURN
455 IFL=60THENL=1:FORX=1TO7:PRINT#1:NEXTX
460 RETURN
465 PRINT"[147]"TAB(8)" KILL FUNCTION ACTIVE [146]"
470 RETURN